program ShortRecord;

{$APPTYPE CONSOLE}
type
pelement = ^element;
element = record
value : integer;
next : pelement;
end;
var
head : pelement;
begin
  new(head);
  head^.value := 5;
  new(head^.next);
  head^.next^.value := 6;
  new(head^.next^.next);
  head^.next^.next^.next := nil;
end.
 